﻿<%
class ActionQrcode
	private sub Class_Initialize()
	
	end sub
	public sub showqrcode
		Mo.use "Qrcode"
		dim version,correct,text,qr
		version = F.get.int("version",1)
		if version<0 or version>10 then version=0
		correct = F.get.exp("correct","^(Q|L|M|H)$")
		if correct="" then correct="M"
		text = F.get.safe("text")

		set qr = MoLibQrcode(version, correct)
		qr.addData text
		qr.make()
		qr.flush 2,3 '两个参数分别代表：放大倍数，图像边距
	end sub
	public sub index
		Mo.assign "list",array(0,1,2,3,4,5,6,7,8,9,10)
		Mo.assign "listc",array("L","M","Q","H")
		Mo.display "Home:Qrcode"
	end sub
	public sub [empty](a)
		F.echo "默认页面：" & a
	end sub
end class
%>